home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / toc.dir / 00026.ls < prev    next >
Encoding:
Text File  |  1997-01-16  |  523 b   |  24 lines
  1. on exitFrame
  2.   puppetSprite(6, 1)
  3.   set switch to random(3)
  4.   if switch = 1 then
  5.     set foo to random(8)
  6.     set the ink of sprite 6 to foo
  7.     updateStage()
  8.   else
  9.     if switch = 2 then
  10.       set foo to random(8) + 31
  11.       set the ink of sprite 6 to foo
  12.       updateStage()
  13.     else
  14.       puppetSprite(6, 0)
  15.       puppetSprite(7, 1)
  16.       set rcolor to random(255)
  17.       set the foreColor of sprite 7 to rcolor
  18.       set foo to random(8)
  19.       set the ink of sprite 7 to foo
  20.       updateStage()
  21.     end if
  22.   end if
  23. end
  24.